home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 32 / megatrek.zip / ABANDON.ASC next >
Text File  |  1982-07-04  |  1KB  |  28 lines
  1. 50000 ON SGN(D4(10))+2 GOTO 50010,50030,50020
  2. 50010 PRINT"YE FAERIE QUEENE HAS NO SHUTTLE CRAFT.":GOTO 70
  3. 50020 PRINT"SHUTTLE CRAFT DAMAGED.":GOTO 70
  4. 50030 PRINT:COLOR 24,7:PRINT"***ABANDON SHIP!  ABANDON SHIP!";:PRINT ""
  5. 50040 PRINT"***ALL HANDS ABANDON SHIP!";:COLOR 7,0:PRINT "":PRINT:GOSUB 44000
  6. 50050 PRINT"YOU AND THE BRIDGE CREW ESCAPE IN THE GALILEO."
  7. 50060 PRINT"THE REMAINDER OF THE CREW BEAMS DOWN"
  8. 50070 PRINT"TO THE NEAREST HABITABLE PLANET.":IF R3<>0 THEN 50090
  9. 50080 F9=9:CHAIN  MERGE "END.ASC",50000!,ALL,DELETE 50000-60000
  10. 50090 PRINT:PRINT"YOU ARE CAPTURED BY KLINGONS AND RELEASED TO"
  11. 50100 PRINT"THE FEDERATION IN A PRISONER-OF-WAR EXCHANGE."
  12. 50110 PRINT"STARFLEET PUTS YOU IN COMMAND OF ANOTHER SHIP,"
  13. 50120 PRINT"THE FAERIE QUEENE WHICH IS ANTIQUATED, BUT"
  14. 50130 PRINT"STILL USABLE.":N=INT(RND(1)*R3+1):Q1=B2(N):Q2=B3(N)
  15. 50140 S6=5:S7=5:GOSUB 18000:Q$(S6,S7)="."
  16. 50150 FOR L=1 TO 3:S6=INT(2*RND(1)-1+B6)
  17. 50160 IF(S6<1)OR(S7>10)THEN 50190
  18. 50170 S7=INT(3*RND(1)-1+B7):IF(S7<1)OR(S7>10)THEN 50190
  19. 50180 IF Q$(S6,S7)="."THEN 50200
  20. 50190 NEXT L:GOTO 50140
  21. 50200 S5$="FAERIE QUEENE":Q$(S6,S7)=LEFT$(S5$,1):C5$="DOCKED"
  22. 50210 FOR L=1 TO 12:D4(L)=0:NEXT:D4(10)=-1:E1=3000:I7=E1
  23. 50220 S3=1500:I8=S3:T4=6:I9=T4:L1=3:J1=L1:S4=0:W1=5:W2=25
  24. 50230 GOTO 70
  25. 60000 REM end overlay
  26. NEXT:D4(10)=-1:E1=3000:I7=E1
  27. 50220 S3=1500:I8=S3:T4=6:I9=T4:L1=3:J1=L1:S4=0:W1=5:W2=25
  28. 50230 G